home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / AUDEX.DSK / TONE EXAMPLE PROGRAM.bas < prev   
BASIC Source File  |  2014-09-09  |  1KB  |  20 lines
  1. 4  REM ************************
  2. 5  REM *                      *
  3. 6  REM *     TONE PROGRAM     *
  4. 7  REM *    EXAMPLE PROGRAM   *
  5. 8  REM *                      *
  6. 9  REM ************************
  7. 10  HIMEM: 37375: REM AUDIO OPCODES LOAD AT 37376 NORMALLY
  8. 80  PRINT  CHR$(4);"BLOAD AUDIO OPCODES"
  9. 90  REM GENERATE RANDOM TONES (ML & MH) AT RANDOM REPITITIONS (NL & NH)
  10. 100 MH =  RND(1) *7 +3:ML =  RND(1) *256:NH = 0:NL = 1 + RND(1) *150
  11. 110  GOSUB 10007: GOTO 100: REM  CALL TONE ROUTINE AND REPEAT
  12. 10001  GOTO 10009: REM    AUDSUBS BEGIN
  13. 10002  GOSUB 10008: POKE 254,PL: POKE 255,PH: POKE 253,NR: CALL 37889: RETURN : REM  CALL SQUALK
  14. 10003  GOSUB 10008: POKE 254,PL: POKE 255,PH: CALL 37478: RETURN : REM  CALL JABBER 
  15. 10004  GOSUB 10008: PRINT "TAPE WILL PLAY THROUGH SPEAKER.": PRINT "'T' KEY TRIGGERS DATA INPUT": PRINT "'A' KEY ABORTS WITHOUT DATA INPUT": POKE 255,145: POKE 253,117: CALL 37632: HOME : RETURN : REM  CALL HEARTAPE
  16. 10005  POKE 255,145: POKE 253,117: CALL 37675: RETURN : REM  CALL AUDIO IN
  17. 10006  POKE 255,145: POKE 253,117: CALL 37786: RETURN : REM  CALL PLAYBACK
  18. 10007  POKE 254,ML: POKE 255,MH: POKE 252,NL: POKE 253,NH: CALL 37376: RETURN : REM  CALL TONE
  19. 10008 PH =  INT(AD/256):PL = AD -256 *PH: RETURN : REM  CONVERT AD (ADDRESS) TO PH (POKEHI) AND PL (POKELO)
  20. 10009 : REM    AUDSUBS END